﻿Class MainWindow 
  Private Sub DatePicker1_SelectedDateChanged(
      ByVal sender As Object,
      ByVal e As  _
        System.Windows.Controls.SelectionChangedEventArgs) _
      Handles DatePicker1.SelectedDateChanged
    Me.TextBox1.Text =
      Me.DatePicker1.SelectedDate.ToString
  End Sub
End Class
